home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / src / ConfigFileSrc.lha / ConfigFileSrc12 / RexxLibrary / Funcs / Last.c < prev    next >
Encoding:
Text File  |  1997-10-02  |  2.7 KB  |  119 lines
  1. /*
  2. **        $PROJECT: RexxConfigFile.library
  3. **        $FILE: Last.c
  4. **        $DESCRIPTION: rxcf_Last#?() functions
  5. **
  6. **        (C) Copyright 1997 Marcel Karas
  7. **             All Rights Reserved.
  8. */
  9.  
  10. IMPORT struct Library *CFBase;
  11.  
  12. /****** rexxconfigfile.library/cf_LastArgument *******************************
  13. *
  14. *   NAME
  15. *        cf_LastArgument -- Returns the previous argument node.
  16. *
  17. *   SYNOPSIS
  18. *        LastArgNode = cf_LastArgument(ArgNode)
  19. *
  20. *        LASTARGNODE/N cf_LastArgument(ARGNODE/N/A)
  21. *
  22. *   FUNCTION
  23. *        This function returns the previous argument node, or NULL if there
  24. *        are no more argument nodes in the list.
  25. *
  26. *   INPUTS
  27. *        ArgNode - The argument node.
  28. *
  29. *   RESULT
  30. *        LastArgNode - Last argument node or NULL.
  31. *
  32. *   SEE ALSO
  33. *        cf_LastGroup(), cf_LastItem(), cf_LockArgList()
  34. *
  35. ******************************************************************************
  36. *
  37. */
  38.  
  39. UWORD rxcf_LastArgument ( RX_FUNC_ARGS, CFArgument * ArgNode )
  40. {
  41.     CFArgument    * LastArgNode;
  42.  
  43.     if ( LastArgNode = cf_LastArgument (ArgNode) )
  44.         *ResStr = CreateNumArgStrP (LastArgNode);
  45.     return (RC_OK);
  46. }
  47.  
  48. /****** rexxconfigfile.library/cf_LastGroup **********************************
  49. *
  50. *   NAME
  51. *        cf_LastGroup -- Returns the previous group node.
  52. *
  53. *   SYNOPSIS
  54. *        LastGrpNode = cf_LastGroup(GrpNode)
  55. *
  56. *        LASTGRPNODE/N cf_LastGroup(GRPNODE/N/A)
  57. *
  58. *   FUNCTION
  59. *        This function returns the previous group node, or NULL if there are
  60. *        no more group nodes in the list.
  61. *
  62. *   INPUTS
  63. *        GrpNode - The group node.
  64. *
  65. *   RESULT
  66. *        LastGrpNode - Last group node or NULL.
  67. *
  68. *   SEE ALSO
  69. *        cf_LastArgument(), cf_LastItem(), cf_LockGrpList()
  70. *
  71. ******************************************************************************
  72. *
  73. */
  74.  
  75. UWORD rxcf_LastGroup ( RX_FUNC_ARGS, CFGroup * GrpNode )
  76. {
  77.     CFGroup    * LastGrpNode;
  78.  
  79.     if ( LastGrpNode = cf_LastGroup (GrpNode) )
  80.         *ResStr = CreateNumArgStrP (LastGrpNode);
  81.     return (RC_OK);
  82. }
  83.  
  84. /****** rexxconfigfile.library/cf_LastItem ***********************************
  85. *
  86. *   NAME
  87. *        cf_LastItem -- Returns the previous item node.
  88. *
  89. *   SYNOPSIS
  90. *        LastItemNode = cf_LastItem(ItemNode)
  91. *
  92. *        LASTITEMNODE/N cf_LastItem(ITEMNODE/N/A)
  93. *
  94. *   FUNCTION
  95. *        This function returns the previous item node, or NULL if there are
  96. *        no more item nodes in the list.
  97. *
  98. *   INPUTS
  99. *        ItemNode - The item node.
  100. *
  101. *   RESULT
  102. *        LastItemNode - Last item node or NULL.
  103. *
  104. *   SEE ALSO
  105. *        cf_LastArgument(), cf_LastGroup(), cf_LockItemList()
  106. *
  107. ******************************************************************************
  108. *
  109. */
  110.  
  111. UWORD rxcf_LastItem ( RX_FUNC_ARGS, CFItem * ItemNode )
  112. {
  113.     CFItem    * LastItemNode;
  114.  
  115.     if ( LastItemNode = cf_LastItem (ItemNode) )
  116.         *ResStr = CreateNumArgStrP (LastItemNode);
  117.     return (RC_OK);
  118. }
  119.